home *** CD-ROM | disk | FTP | other *** search
/ OpenStep 4.1 (User) / OpenStep 4.1 (User).iso / usr / lib / transcript / banner.pro < prev    next >
Encoding:
Text File  |  1996-09-02  |  1.3 KB  |  24 lines
  1. %!
  2. % Start of banner.pro -- prolog for printer banner maker
  3. % Copyright (c) 1985,1987 Adobe Systems Incorporated. All Rights Reserved. 
  4. % GOVERNMENT END USERS: See Notice file in TranScript library directory
  5. % -- probably /usr/lib/ps/Notice
  6. % 4.2bsd banner page prolog (uses lpd/"of" short banner string)
  7. % host:user  Job: file  Date: Day Mth dd hh:mm:ss yyyy
  8. % RCSID: $Header: /disks/hobo/vp6/snichols/rel3.0/transcript/lib/RCS/banner.bsd,v 3.0 1991/06/17 17:08:31 snichols Exp $
  9. /Banner{14 dict begin dup statusdict exch /jobname exch put
  10.  save /sv exch def /jobstr exch def /PN exch def
  11.  jobstr(Job: )search not{0()}if /hu exch def pop
  12.  /s1 exch def s1(Date: )search
  13.    {/jb exch def pop/da exch def}{/jb exch def/da()def}ifelse
  14.  statusdict /printername known
  15.  {/pn 31 string statusdict/printername get exec def}{/pn(PostScript)def}ifelse
  16.  /w 670 def/y{72 w moveto show}def/z{y/w w 30 sub def}def
  17.  /l{gsave .5 setgray 12 setlinewidth newpath moveto
  18.   468 0 rlineto stroke grestore}def
  19.  72 720 l /Helvetica-Bold findfont 14 scalefont setfont
  20.  hu z jb z/Helvetica findfont 14 scalefont setfont da z PN y( / )show pn show 
  21.  72 540 l /Courier findfont 10 scalefont setfont 72 500 moveto
  22.  4{gsave PN show( )show jobstr show grestore 0 -25 rmoveto}repeat
  23.  showpage sv end restore}def
  24.